Export Multiple Worksheets' Info to One Dbf/Text File

What field/column in your data is always filled in?

Column C is always filled in.

Okay...this has undergone some very, very light testing, but try it out on your data and see if it works.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> ExportData2TxtFile()
    <SPAN style="color:#00007F">Dim</SPAN> FieldHeader <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> FieldCount <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    
    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> j <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> k <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    
    <SPAN style="color:#00007F">Dim</SPAN> f <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>
    
    <SPAN style="color:#00007F">Const</SPAN> DATFILE <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "C:\data_export.dat" <SPAN style="color:#007F00">'change this to your file destination</SPAN>
    
    FieldCount = ThisWorkbook.Sheets(2).Range("$A$6").End(xlToRight).Column

    <SPAN style="color:#00007F">For</SPAN> i = 1 <SPAN style="color:#00007F">To</SPAN> FieldCount
        <SPAN style="color:#00007F">If</SPAN> i = 1 <SPAN style="color:#00007F">Then</SPAN>
            FieldHeader = ThisWorkbook.Sheets(2).Cells(6, i)
        <SPAN style="color:#00007F">Else</SPAN>
            FieldHeader = FieldHeader & "," & ThisWorkbook.Sheets(2).Cells(6, i)
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
    <SPAN style="color:#00007F">Next</SPAN>
    
    f = FreeFile
    
    <SPAN style="color:#00007F">Open</SPAN> DATFILE <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Output</SPAN> <SPAN style="color:#00007F">As</SPAN> #f
    
    <SPAN style="color:#00007F">Print</SPAN> #f, FieldHeader
    
    <SPAN style="color:#00007F">For</SPAN> i = 2 <SPAN style="color:#00007F">To</SPAN> 8
        <SPAN style="color:#00007F">For</SPAN> j = 7 <SPAN style="color:#00007F">To</SPAN> ThisWorkbook.Sheets(i).Cells(Rows.Count, 3).End(xlUp).Row
            <SPAN style="color:#00007F">Dim</SPAN> RecordData <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
            
            <SPAN style="color:#00007F">With</SPAN> ThisWorkbook.Sheets(i)
                <SPAN style="color:#00007F">For</SPAN> k = 1 <SPAN style="color:#00007F">To</SPAN> FieldCount
                    <SPAN style="color:#00007F">If</SPAN> k = 1 <SPAN style="color:#00007F">Then</SPAN>
                        RecordData = .Cells(j, k)
                    <SPAN style="color:#00007F">Else</SPAN>
                        RecordData = RecordData & "," & .Cells(j, k)
                    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
                <SPAN style="color:#00007F">Next</SPAN>
            <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
        
            <SPAN style="color:#00007F">Print</SPAN> #f, RecordData
        <SPAN style="color:#00007F">Next</SPAN>
    <SPAN style="color:#00007F">Next</SPAN>

    <SPAN style="color:#00007F">Close</SPAN> #f
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

Fields A..AY are filled in (51 fields).

This worked like a charm! Thanks!!!
Learning alot from all of your expertise.

Good...I'm glad it worked.